home *** CD-ROM | disk | FTP | other *** search
/ Spawn Figure Collection / spawn collection cd.iso / setup / data1.cab / Program_Executable_Files / Collection.dir / 00006.ls < prev    next >
Encoding:
Text File  |  1998-01-19  |  845 b   |  21 lines
  1. on exitFrame
  2.   global lseries, gnowseries, gnowtitle, gnowgroup, geprotect, gegroup, gecheckbox, gecheck, gebitmap, geditmode, gseriestext, gtitletext, ggrouptext
  3.   set ls to getAt(lseries, gnowseries)
  4.   set lt to getAt(the ltitle of ls, gnowtitle)
  5.   set lg to getAt(the lgroup of lt, gnowgroup)
  6.   set geprotect to the pprotect of lg
  7.   set gegroup to the pgroup of lg
  8.   set gecheckbox to the pcheckbox of lg
  9.   set gecheck to the pcheck of lg
  10.   set gebitmap to the pbitmap of lg
  11.   set geditmode to 0
  12.   set the text of member "HelpWindow" to EMPTY
  13.   set the foreColor of member "Series" to 255
  14.   set the foreColor of member "Title" to 255
  15.   set the foreColor of member "Comment2" to 255
  16.   set gseriestext to the text of member "Series"
  17.   set gtitletext to the text of member "Title"
  18.   set ggrouptext to the text of member "Comment"
  19.   go("Ed")
  20. end
  21.